home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / pagectrl / TEST1U.DFM / TEST1U.txt
Encoding:
Text File  |  1997-09-02  |  1.4 KB  |  74 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 126
  4.   Width = 435
  5.   Height = 306
  6.   Caption = 'Owner Draw Page Control'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object ODPageControl: TODPageControl
  14.     Left = 0
  15.     Top = 0
  16.     Width = 427
  17.     Height = 279
  18.     ActivePage = TabSheet1
  19.     Align = alClient
  20.     Font.Color = clWindowText
  21.     Font.Height = -11
  22.     Font.Name = 'Arial'
  23.     Font.Style = []
  24.     ParentFont = False
  25.     TabOrder = 0
  26.     OnDrawItem = ODPageControlDrawItem
  27.     object TabSheet1: TTabSheet
  28.       Caption = 'Page 1'
  29.       object Memo1: TMemo
  30.         Left = 24
  31.         Top = 8
  32.         Width = 369
  33.         Height = 201
  34.         Lines.Strings = (
  35.           'Memo1')
  36.         TabOrder = 0
  37.       end
  38.     end
  39.     object TabSheet2: TTabSheet
  40.       Caption = 'Page 2'
  41.       object Memo2: TMemo
  42.         Left = 24
  43.         Top = 8
  44.         Width = 369
  45.         Height = 201
  46.         Lines.Strings = (
  47.           'Memo2')
  48.         TabOrder = 0
  49.       end
  50.     end
  51.     object TabSheet3: TTabSheet
  52.       Caption = 'Page 3'
  53.       object Memo3: TMemo
  54.         Left = 24
  55.         Top = 8
  56.         Width = 369
  57.         Height = 201
  58.         Lines.Strings = (
  59.           'Memo3')
  60.         TabOrder = 0
  61.       end
  62.     end
  63.   end
  64.   object Button1: TButton
  65.     Left = 157
  66.     Top = 243
  67.     Width = 113
  68.     Height = 25
  69.     Caption = 'Toggle &Owner Draw'
  70.     TabOrder = 1
  71.     OnClick = Button1Click
  72.   end
  73. end
  74.